FRO<-function(x,t,L50)
{
  mat=100*(sum(x>L50))/length(x$len) 
  lot=100*(sum(sum(x<VLOT(t)*1.1) - sum(x<VLOT(t)*0.9)))/length(x$len) 
  mgr=100 *(sum(x>VLOT(t)*1.1))/length(x$len) 
  res=list(mat=mat, lot=lot, mgr=mgr) 
  return(res)
}
